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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
® 
we 
* 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER * 
COPIES, THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
TRANSFERRED. : 
* 
m 
we 
® 
+ 
t 
® 
# 
® 
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Som 


fi 


9 Ha INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
op CORPORATION. 
DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
44 SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
009 TARA RAALALALALAALLASALALAELALEAR ERASER EEE EEE EER RRR R EERE ERE REE RR ERE REE ERE S EEE 
000 
4 “FACILITY: SHOW COMMAND, MESSAGE UTILITY ROUTINES 
ABSTRACT: 
This module contains all message formatting and printing utilities 
for the SHOW command 
ENVIRONMENT: 
AUTHOR: BEATRICE U.WALTHER, CREATION DATE: 10-OCT-1977 
MODIFIED BY: 


v03-002 GAS0100 11-Jan-1983 
Change SHOWSPRINT LINE to SHOW, PRINT _LINE. 


v03-001 $450065 Gerry Smith 29-Mar-1982 
If an error occurs during open or write to SYSSOUTPUT, 
signal the error and stop. 


- = VERSION 
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01 
02 Gary Foyer a font y~1979 
Remove FOP f so new cutout file will be created if 
SYSSOUTPUT ist reassigned to a file that already exists. 
g8 03 Jim Teague 


<a | 


SHOWSMSG_UTIL 
v04=000 


= MESSAGE PRINTING UTILITIES es i as at $3:53:26 


4-SEP-19 
0090 8 : Changed W* references to L* references. 
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PRINTING UTILITIES 
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RSER 1986 83:33:6% LCCIUTE SRESSoMscuteoman:s 8 3, 


«SBTTL DECLARATIONS 


INCLUDE FILES: 
SRMSDEF 
MACROS: 


EQUATED SYMBOLS: 


~~~ 


; define structure of a message table entry 


[es MSG 
MSG _Q_TEXT: 
-BLRa~ 1 3; descriptor to message text 
MSG_B_CODE: 


~ 


-BL ; code associated with message 
5 SDEF MSG_B_CONTIN: 


-BL 

MSG_B_PARAM: 
-BLRB~ 1 
-BLKB 

sot MSG_K 


$3 SDEFEND MSG 


continuation flag 


count of associated FAO parameters 
1 : (spare) 

LENGTH: 

; length of message table entry 


3 : define shared messages for open/write errors 


3 $SHR_MSGDEF SHOW, 12 120, ehOcAL.= ; make it a SHOW error 


RROR>,- : error opening file 
, CUR ITEERR-ERROR>S ; error writing to file 
101 ; 
, ; OWN STORAGE: 
1 . 
: 5 -PSECT SHOWSRWDATA LONG ,RD ,WRT ,NOE XE 
107 OUTPUT_DNA ; FILE NAME STRING 
1 SASCII FeyssouTeyt s / 
109 OUTPUT DNA LEN =.-OUTPUT_DNA 
19 LONG 
111 OUTPUT_F AB: 
i $F AB FAC=PUT,=- ; ALLOCATE FILE ACCESS BLOCK 
11 DNA=OUTPUT_DNA,- ; FOR OUTPUT 
114 DNS=OUTPUT_DNA_LEN,-=- 
115 NAM=OUTPUT_NAM, = OVIDE A NAME BLOCK 
118 RAT=CR 3 APPEND’ Ne CAR RIAGE RETURN 
118 OUTPUT_RAB: 


<tA 


|e ee or SOC ern cag gee eer 


i ad peCEaaatfong mine wTuLtTIES TECSEGCHSRS BESSESGE HELIUTELRESSiOMECDE sn "9" 
! euteut one f AB=OUTPUT_FAB ; AND RECORD ACCESS BLOCK 
! mt ss “tae 
1 " ; RESULTANT NAME 
} 3 OUT_RSA eee =HARBC “Ak vos 
! § out ESA: -BLKB NAMSC_MAXRSS ; RESERVE SPACE FOR RESULTANT STRING 
! 3 me “stati LKB NAMSC_MAXRSS ; RESERVE SPACE FOR EXPANDED STRING 
1 9 ound “tenbth: 1 ; RESERVE LONGWORD FOR RMS STATUS CO 
! § ae 7. ; ACTUAL LENGTH OF OUTPUT BUFFER | 
134 “.LONG OUT BUFF LENGTH ; BUILD DESCRIPTOR FOR OUTPUT BUFFE 
135 «LONG OUTPUT_BOFFER : 
: $ eter ike 256 ; ALLOCATE OUTPUT BUFFER 
138 OUT_BUFF_LENGTH =,-OUTPUT_BUFFER 


| rie 
$ G_UTIL = MESSAGE PRINTING UTILITIES 15-SEP=1 245: AX/VMS Macro V04- 
rivet SHOUSPRINT MSG = PRINT MESSAGE ROUTINE ‘ZaSEp-ione S8:35:09 Fen iUme eee igHbeccor mans1 2% cd) 
it ~SBTTL SHOWSPRINT_MSG = PRINT MESSAGE ROUTINE 
142 ;¢ 
143 ; FUNCTIONAL pes RIPTION: 
144 ; THIS ROUTINE FORK ATS ALL MESSAGES AND PRINTS THEM ON SYSSOUTPUT: 
1465 ; OR SYSSERROR EP PENDING ON THE CODE ASSOCIATED WITH THE MESSA 
‘ 146 ; ( SEE DESCRIPTION OF MACRO SHOW_DEFMSG FOR FORMAT OF MESSAGE TABLE) 
148 ; CALLING SEQUENCE: 
150 ; PUSHL #SHOWS | <MESSAGE MNEMONIC> 
: 1 5 PUSHAL RGU Ist 
; CALLS #2" SHOWSPRINT_MSG 
4 + INPUT PARAMETERS: 
oe § : 4(AP)= MESSAGE IDENTIFICATION NUMBER 
4 : 5 B(AP)= POINTER TO ARGUMENT LIST FOR SFAOL 
4 E § $ OUTPUT PARAMETERS: 
aii = 
OE 18 : IMPLICIT INPUT PARAMETERS: 
OE 164; 
AOE 165 ; NONE 
40E 18? : IMPLICIT OUTPUT PARAMETERS: 
Oe 189 : CALLS ROUTINE SHOW_PRINT_LINE 
0€ 171 COMPLETION CODES: 
O€ 1% ; 
Bt peso fee 
0€ 175 SIDE EFFECTS: 
O€ 176 3 ; 
40E 177: NONE 
ie 
000 00 0 .PSECT SHOWSCODE BYTE,RD,NOWRT,EXE 
1 3 .ENTRY SHOWSPRINT_MSG,*M<R10,R11> 
1 
185 : initialize 
18 
01 188 PUSHR #*M<RO> 3 Save status code 
5B 40C) «OOB AC 189 MULL3 8(AP) ,#MSG_K_LENGTH,R11 
190 : CALCULATE OFFSET INTO MESSAGE TABLE 
SA 04 AC 13 MOVL  4(AP),R10 : POINTER TO FAO PARAMETER LIST 
193 ; 
194 ; format a message Line 
195 ; 
196 


an ET laos |e Fables 


UTIL MESSAGE PRINTING " IT 15-SEP-1984 23:45: AX/VMS Macro V04-00 Pa 
ve vf SHOUSPRINT MSG - megs SAGE ROUTINE 4-5 ett 33:53:89 CLIUTL. SREIS SHOMSGUTL .MAR; 1 - (%) 
197 i 
Bea SFAOL_S FORMAT MESSAGE NTO T BUFFER 
> CTRSTR=L“SHOUSA ASGTAT (RIN), OTOL t STRING i 
OuT botet -snocbet. 0 RECEIVE ACTUAL LEN 
¢ OUTBUF = ah Go_ BUS Pie. ; OUTPUT Prtith DESCRIPTOR 
PRML ST=(R PARAMETER LIST 
28 50 : BLBC RO,99$ ; branch on error i 
: print formatted Line 
19 
"CF 1 PUSHAL wW*OUTPUT_BUFFER : ADDRESS OF OUTPUT MESSAGE STRING 
"CF 1 PUSHL W*OUTPUTLENGTH + RESULTANT LENGTH OF OUTPUT MESSAGE 
0054'CF 8 1 CALLS He W*SHOQ_PRINT_LINE 3 PRINT LINE ON SYS$OUTPUT: 
18 13 BLBC R ; branch on error i 
16 ; i 
17 3 get next Line of message i 
19 : | i 
OF 00000015'EB 1 BLBC  L*SHOWSA_MSGTXT+MSG_K -LENGTHOMSG BACONTINGRI1), 908 
50 0000000A'EB ; MOVZBL L*SHOWSA_MSGTXT+MSG_B_ PARAN(RI1) RO i 
4 ; rig. PARAMETERS ALREADY PROCESSED 
5A 50 5 ADDL ; SPDATE OINTER TO PARAM AMET ER LIST i 
5a (0c 6 ADDL ane. : _LENGTH,R11 : SKIP TO NEXT MESSAGE ENTRY : 
BC BRB : AND PROCESS NEXT LINE OF MESSAGE 
0 : exits : 
18 i 
§ 90$: F 
01 4 POPR #*M<RO> ; restore return code F 
5 99$: RET + ALL DONE 
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~SBTTL SHOW _PRINT_LINE - PRINT LINE ROUTINE 


o 


+ 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE PRINTS A LINE ON DEVICE SySS$OUTPUT 
CALLING SEQUENCE: 
PUSHAL OUT_BUFFER 
PUSHL out LENGTH 
CALLS #2,SHOW_PRINT_LINE 


WHERE: OUT LENGTH = LENGTH OF CHARACTER STRING TO PRINT 
OUT_BUFFER = ADDRESS OF STRING TO PRINT 


A CR/LF IS AUTOMATICALLY APPENDED FOR EACH CALL 


WN 9 OO NOU EWR O ODNOAUNE Ut" O0OOn 
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tg HIGHLY RECOMMENDED TO USE THE COMMON LINE BUFFER PROVIDED 
THE DESCRIPTOR OF WHICH IS ADDRESSED BY GLOBAL SYMBOL: 
SHOWSGQ_OUT_DSC 
INPUT PARAMETERS: 
OUT~LENGTH 

IMPLICIT INPUTS: 
: NONE 
7 OUTPUT PARAMETERS: 
| ie 
i} IMPLICIT OUTPUTS: 
4 LINE IS PRINTED ON SYSSOUTPUT: 
79 ; COMPLETION CODES: 


RMS COMPLETION CODES 
SIDE EFFECTS: 


OPENS AND CONNECTS SYSSOUTPUT: IF NECESSARY 


ENTRY SHOW_PRINT_LINE,“M<R2,R3> 


PVPUPU DUP DULUSUSUSISU SUSU SU STU SUSE SUSU SUSESTSTSTSESUSE SUSU STASIS SIFTS ASE ASE SIAL ASIRSIASIASIASI ASI ASASOASIASIOSIASIOS =—R 


Ce Pt ot et et et et et et et et et ett ett et ee eee et tt ot et et et tt et et et tt et et et et et tt tt et 


-PSECT SHOWSCODE BYTE ,.RD .NOWRT ,EXE 


of 


bg IC laa sl SE Blaine 
yoe-008 NEMS Paint fine routine  'aasepayone S8isacoy Fen sime Saese voe~00 


4 CLIUTL.SRCJSHOMSGUTL MAR; 1 
3¢ ; open SYSSOUTPUT: if not opened 


OOSE CF {sty Wi RABSH_ ISI +OUTPUT_RAB ; WAS OUTPUT ALREADY BEEN OPENED ? 
52. 0078102 &F MOVL __ #SHOWS OPENOUT R2 + ASSUME ERROR OPENING 
SCREATE FAB=W*OUTPUT_FAB ; OPEN IT 
30 50 LBC RO, 100 ; BRANCH ON ERROR 
CONNECT RAB=W*OUTPUT_RAB 3 AND CONNECT 
22 50 BLBC RO, 1008 3; branch on error 
; print Line on SYSSOUTPUT: 
10$: 
0084"CF 08 AC MOVL  8(AP),W*OUTPUT_RAB+RABSL_RBF 
| INSERT OUTPUT BUFFER ADDRESS 
OO7E'CF 04 AC MOVW © 4( AP) ,W*OUTPUT_RAB+RABSW_RSZ 
| INSERT OUTPUT BUFFER LENGTH 
52 007810D2 8F MOVL  #SHOWS_WRITEERR,R2 + ASSUME ERROR WRITING 
$PuT RAB=W*OUTPUT_RAB ; ISSUE RMS CALL TO PUT LINE 
01 50 BLBC RO, 100$ ; BRANCH IF ERROR 
: exit 
RET 3 RETURN 
; if an error occurred doing 1/0, signal it here and stop 
100$: 
50 PUSHL RO ; PUSH ERROR STATUS 


: check for non-zero RSL. If no resultant name es F try the 
3 expanded name string. If both fail, simply use SYSSOUTPUT 


00000306"EF  O00000A3'EF . MOVZBL OUTPUT _NAM*NAMSB_RSL ,SHOWSGO_OUT _DSC 


D BEQL 
0000030A'EF 00000100" MOVAL OT RSA, SHOWSGO_OUT_DSC +4 
C BRB 0s 


110$: 


000003506"EF  OO0000AB°EF 9A noyzet PUTOUT MAM CHARSD ESL .SHOUSER_OUT _DSC 


D 13 BEQL 
OOOOOSOA*EF  QOOOOIFF'EF DE MOVAL our ESA, SHOWSGQ_OUT_DSC+4 
12 «11 BRB 1308 
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C 
C 
D 1208: 
00000306"EF 08 00 00D "  MOVL = #OUTPUT_DNA_LEN, SHOWSGQ_OUT_DSC 
0000030a' EF 00000000 "EF DE p sons MOVAL OUTPUT_BNA,SHOWSGO_OUT_BSC+% 
00000306"EF oF O0E " PUSHAL $HOWSGQ_OUT_DSC ; PUSH OUTPUT DESCRIPTOR 
1 DD O0E PUSHL #1 
2 0D OOF PUSHL R2 ; PUSH ERROR MESSAGE 


vou-booe SHOU PRINT LINE. > PRINT LINE ay “RSEER 1982 83:53:89 HEMIUTE SRESSutmecotL mans1 P28 (2) 


Q0000000"GF 04 FB oor; 32) caus #4 ,G*LIBSSTOP ; SIGNAL AND STOP 
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Symbol table 


G_B_CODE 
MSG_B_CONTIN 


SHOWSGO_OUT DSC 
SHOWSPRINT_ASG 
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| SHOWSMSG_UTI 
Psect syfopsis 


PSECT name Allocation 
S ( ) af 
$aBs ( 63) at 9.) 
SHOWSRWDATA ( 19 38°) + §°} 
SHOWSCODE 3 ( of ( 
Phase Page faults CPU Time 
Initialization 1 : §0:8 J : 0: 
gonnese processing of 3: ut . - 
7 table sort 0: 34 : 
cose f table output P - :00: 1:83 i 
ou os 3 

Psect synopsis euteut \ BS: :00:00.03 0: 
Cross-reference output 3 0:00: 09-90 0 
Assembler run totals 44 00:00:12. 0 


th re were 40 


Macro Library name 


S5$0UA28 


pages of symbol table space allocated t 
$3 source Lines were read in Pass 1, i 
2 pages of virtual memory were used to define 2 


$255$DUA : cL ivrt 
BS 228DUA SYS.0B8 0 
:CSYSL IBISTARLET. ae: 2 $j 
retacs (all. ‘libraries) 1 


1151 GETS were required to define 21 macros. 


= MESSAGE PRINTING UTILITIES 


geet en eeeereaeccwrs} 


! Psect synopsis ! 


seen eee en aeceewene $ 


PSECT No. 


Attributes 
NOPIC USR 
NOPIC USR 
NOPIC USR 
NOPIC USR 


ose msmenraern oman ron wes ome es 


! Performance indicators ! 


i en 


be working set Limit was 1200 pages. 
4030 bytes (86 pages) of virtual memory were used to buffer the intermediate code. 
hold 820 non-local and 9 Local symbols. 
object records in Pass 


producing 
macros. 


Elapsed Time 


! ; Macro Library statistics : 


Macros defined 


ae tHe MLB; 1 0 


There were no errors, warnings or information messages. 
MACRO/L1S=L1S$:SHOMSGUTL/0BJ=0BJ$:SHOMSGUTL MSRC$: SHOMSGUTL/UPDATE=(ENHS: SHOMSGUTL) ¢EXECML$/LIB+LIB$:CLIUTL/LIB 


opneannmenels 


p-198e 93:33:08 
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LCL NOSHR NOEXE NORD YT 
LCL NOSHR EXE RD WRT NOVEC BYT 
LCL NOSHR NOEXE RD ON 
LCL NOSHR EXE RD 
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